home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / CD-Player / Global.bas < prev    next >
Encoding:
BASIC Source File  |  1999-10-20  |  1.4 KB  |  47 lines
  1. Attribute VB_Name = "GlobalStuff"
  2. Option Explicit
  3. Type CharBMP
  4.   Left As Long
  5.   Width As Long
  6. End Type
  7. Public aCharSpace As CharBMP
  8. Public aChars(65 To 90) As CharBMP
  9. Public Const BULB_WIDTH = 5
  10. Public Const CHAR_HEIGHT = 36
  11. Public Const CHAR_THIN = 30
  12. Public Const CHAR_WIDE = 35
  13.  
  14. Public Sub InitBMPStruct()
  15.   Dim x As Long
  16.   aCharSpace.Left = 0
  17.   aCharSpace.Width = 5
  18.   aChars(65).Left = 0
  19.   aChars(65).Width = CHAR_WIDE
  20.   For x = 66 To 72
  21.     aChars(x).Left = aChars(x - 1).Left + aChars(x - 1).Width
  22.     aChars(x).Width = CHAR_WIDE
  23.   Next x
  24.   aChars(73).Left = aChars(72).Left + aChars(72).Width
  25.   aChars(73).Width = CHAR_THIN
  26.   aChars(74).Left = aChars(73).Left + aChars(73).Width
  27.   aChars(74).Width = CHAR_WIDE
  28.   aChars(75).Left = aChars(74).Left + aChars(74).Width
  29.   aChars(75).Width = CHAR_THIN
  30.   For x = 76 To 83
  31.     aChars(x).Left = aChars(x - 1).Left + aChars(x - 1).Width
  32.     aChars(x).Width = CHAR_WIDE
  33.   Next x
  34.   aChars(84).Left = aChars(83).Left + aChars(83).Width
  35.   aChars(84).Width = CHAR_THIN
  36.   aChars(85).Left = aChars(84).Left + aChars(84).Width
  37.   aChars(85).Width = CHAR_WIDE
  38.   aChars(86).Left = aChars(85).Left + aChars(85).Width
  39.   aChars(86).Width = CHAR_THIN
  40.   aChars(87).Left = aChars(86).Left + aChars(86).Width
  41.   aChars(87).Width = 50
  42.   For x = 88 To 90
  43.     aChars(x).Left = aChars(x - 1).Left + aChars(x - 1).Width
  44.     aChars(x).Width = CHAR_THIN
  45.   Next x
  46. End Sub
  47.